perm filename QWQ[RST,LCS] blob sn#243222 filedate 1976-10-20 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		RN(1)=0
C00009 ENDMK
CāŠ—;
	RN(1)=0
C KT=NUM OF BARS
	DO 3 K=1,KT-JT-1
3	RN(1)=RN(1)+BARS(K)
	JA=KT-JT+1
  	DO 1 K=2,JT  
	JA=JA+1
	NBAR(K)=JA
1	RN(K)=BARS(K+JT+2)
	NBAR(JT+1)=KT+1